home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / p4 / p4-1_2c.lha / p4-1.2c / misc / temp2.f < prev    next >
Text File  |  1993-05-24  |  905b  |  50 lines
  1.       program systest
  2.  
  3.       include 'p4f.h'
  4.  
  5.       call p4init()
  6.       call p4crpg()
  7.       call fslave()
  8.       call p4cleanup()
  9.       print *,'exiting pgm'
  10.       end
  11.  
  12.  
  13.       subroutine fslave()
  14.  
  15.       include 'p4f.h'
  16.  
  17.       character*40 buffer
  18.       integer*4 ASIZE
  19.       parameter (ASIZE = 10)
  20.       integer*4  a(ASIZE)
  21.       integer*4 i, procid, itype, iasize, iintsize, ip4int, rc
  22.  
  23.       procid = p4myid()
  24.  
  25.       print 200,'slave ',procid,' has started'
  26.  200  format(a,i2,a)
  27.       call p4flush
  28.  
  29.       do 10 i = 1,ASIZE
  30.           a(i) = i
  31.  10   continue
  32.  
  33.       itype = 44
  34.       iasize = ASIZE
  35.       iintsize = 4
  36.       ip4int = P4INT
  37.       call p4globop(itype,a,iasize,iintsize,p4intsumop,ip4int,rc)
  38.  
  39.       do 20 i = 1,ASIZE
  40.           print 300,a(i)
  41.           call p4flush
  42.  20   continue
  43. 300   format(i4)
  44.  
  45.       print 500,'slave ',procid,' is exiting'
  46.  500  format(a,i2,a)
  47.       call p4flush
  48.  
  49.       end
  50.